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Punctul de pornire în realizarea acestui articol îl constituie problema realizării 
de rapoarte profesionale în formate accesibile diverşilor utilizatori. De regulă, fiecare 
mediu de programare a aplicaţiilor care se respectă pune la dispoziția programatorilor 
componente specifice pentru realizarea de rapoarte. Sunt arhicunoscute generatoarele 
de rapoarte din Visual FoxPro, Magic sau Visual Basic. Fiecare dintre ele are puncte 
tari şi puncte slabe, însă în practică se simt mai ales punctele slabe, determinate de 
flexibilitatea destul de redusă în abordarea unor anumite tipuri de probleme. 

Visual Basic deţine utilitarul „Data Report” pentru realizarea rapoartelor. 
Utilizarea acestuia este foarte simplă, dar de cele mai multe ori în practică, facilitățile 
oferite de „Data Report” sunt insuficiente. Soluţia pentru aceste inconveniente o poate 
reprezenta achiziționarea contra cost a unor componente specializate, sau utilizarea 
altor medii, cum este Microsoft Excel pentru exportarea rapoartelor în formatul dorit. 
Deşi presupune un volum ceva mai mare de muncă pentru realizarea rapoartelor, 
această soluţie oferă în schimb o mare flexibilitate (să ne gândim numai la graficele şi 
multitudinea de funcţii de care dispune Excel-ul şi care vor putea fi folosite prin 
intermediul Visual Basic). 

Utilizarea în Visual Basic a obiectelor ce aparţin altor medii necesită stabilirea 
unei referințe la acestea (meniul Project / References). În fereastra care se deschide se 
bifează bibliotecile de obiecte dorite (pentru Excel se bifează Microsoft Excel x.x 
Object Library! unde x.x este versiunea bibliotecii). 


References - YB_Excel x] 


Available References: 


[_ Microsoft Dialog Automation Objects = Cancel | 


Microsoft Direct Speech Recognition 
Microsoft Direct Text-to-Speech 
L_] Microsoft Disk Quota 1,0 Browse... 


icrosoft DT DDS T b2 
vi 9, | y 
, m 
[_] Microsoft H323 Service Provider 1.0 Type Library Priority 
Microsoft HTML Object Library Help 


Microsoft Internet Controls + | 
L_] Microsoft IP Conferencing Service Provider 1.0 Type 
Microsoft Jet and Replication Objects 2.5 Library 


Microsoft MIMEEDIT Type Library 1.0 
icrosoft Multicast Address Allocation Client COM w 
b 


-Microsoft Excel 9.0 Object Library 


Location: C:\Program Files\Microsoft OfficelOfficejEXCEL9.OLB 
Language: Standard 


Figura nr. 1- Stabilire referință către biblioteca de obiecte Microsoft Excel. 


! Dacă această bibliotecă nu apare în listă înseamnă că nu este instalat Microsoft Excel pe maşina 
locală 


După stabilirea referinţei la o bibliotecă de obiecte se poate folosi opțiunea 
Object Browser (meniul View / Object Browser sau tasta F2) pentru a vedea membrii 
acesteia. Să vedem în continuare care sunt cele mai importante clase, precum şi 
atributele şi metodele speifice lor. 


1.Clasa Application 


Clasa Application încorporează toate funcționalitățile aplicaţiei Microsoft 
Excel. Instanțierea fiecărui obiect din această clasă va lansa în execuție o nouă 
instanţă a aplicaţiei Excel, chiar dacă aceasta nu va fi vizibilă pentru utilizator. Aceste 
instanţe vor rula până la invocarea metodei quit. 

Este bine de ştiut că în momentul opririi aplicaţiei, instanțele Excel create se 
vor închide automat doar dacă au fost închise toate documentele create sau 
deschise de acestea. Este recomandat ca la închiderea aplicaţiei să invocăm explicit 
metoda quit pentru toate instanțele Excel create, altfel riscăm să ocupăm inutil 
resursele sistemului cu instanţe Excel care nu mai sunt referite de nici o aplicaţie. 


Principalele proprietăți ale clasei APPLICATION 


Returnează un obiect de tip RANGE (grup de 


ActiveCell celule) ce reprezintă celula curentă din fereastra 
activă. 
ActiveSheet Returnează un obiect de tip SHEET (foaie de 


lucru) ce reprezintă foaia de lucru activă. 
Returnează un obiect de tip WINDOW (fereastră) 
ce reprezintă fereastra activă. 

Returnează un obiect de tip WORKBOOK 
(registru de lucru) ce reprezintă registrul activ. 


Active Window 


Active Workbook 


Cell Returnează un obiect de tip RANGE ce reprezintă 
Ekes toate celulele din foaia de lucru activă. 
Returnează un obiect de tip RANGE ce reprezintă 
Columns Pisu Se 
toate coloanele din foaia de lucru activă. 
Path Returnează calea spre Microsoft Excel. 
R Returnează un obiect de tip RANGE ce reprezintă 
ange o celulă sau un grup de celule. 
R Returnează un obiect de tip RANGE ce reprezintă 
OMS, toate rândurile din foaia de lucru activă. 
Returnează o colecție de tip SHEETS ce 
Sheets 


reprezintă toate foile de lucru din registrul activ. 
Returnează o colecție de tip WINDOWS ce 
Windows reprezintă toate ferestrele din toate registrele de 
lucru deschise. 

Returnează o colecție de tip WORKBOOKS ce 
reprezintă toate registrele de lucru deschise. 
Returnează o colecție de tip SHEETS ce 
reprezintă toate foile de lucru din registrul activ. 


Workbooks 


Worksheets 


Principalele metode ale clasei APPLICATION 


Metoda Descriere 
Calculate Efectuează calculele conform formulelor din toate 
registrele de lucru. 
ExecuteExcel4Macro Execută o macrocomandă Microsoft Excel 4.0. 
Quit Închide aplicația. 
Run Execută o macrocomandă scrisă în Visual Basic 
sau Microsoft Excel 4.0. 
Undo Anulează ultima modificare efectuată. 


Exemplu: 
-instanțierea unei aplicații Excel: 


Dim appExc As NEW Excel.Application 


"sau 


Dim appExc As NEW Excel.Application 
Set appExc = NEW Excel.Application 


2.Clasa Workbook 


Clasa Workbook face parte din colecția Workbooks şi reprezintă registrul de 
lucru (documentul) Microsoft Excel. 


Principalele metode ale colecţiei WORKBOOKS 


Metoda Descriere 
Add Creează un registru de lucru nou. De asemenea, 
noul registru de lucru va deveni registrul activ. 
Close Închide toate registrele de lucru deschise. 
Open Deschide registrul de lucru specificat. 


O colecţie Workbooks conţine toate registrele de lucru (obiecte Workbook) 
deschise cu o aplicaţie Excel (un obiect Application). Implicit, elementele colecției 
Workbooks sunt numerotate de la 1. Astfel, primul registru de lucru deschis cu o 
aplicaţie Excel va fi acesat prin Application. Workbooks(1). 

Următorul exemplu va instanţia o aplicaţie Excel şi apoi generează un nou 
registru de lucru prin intermediul acesteia: 


Dim appExl As New Excel.Application 
APpEx1 .Workbooks . Add 


sau 


Dim appExl As Excel.Application 
Set appExl = New Excel.Application 
ApPpEx1 .Workbooks .Add 


Următorul exemplu va instanţia o aplicaţie Excel şi apoi va deschide registrul 
de lucru ”Registru.x1s” prin intermediul acesteia: 


Dim appExl As New 
ApPpEx1 .Workboo 


Excel.Application 
ks.Open ”C:\Registru.xls” 


sau 


Dim appl 
Set appExl1 = New 
APpEx1 .Workboo 


-xl As Excel.Application 
Excel.Application 
ks.Open ”C:\Registru.xls” 


ATENȚIE: 

Nu trebuie uitată adăugarea în rutina de închidere a aplicației şi appExI. Quit, 
altfel la fiecare execuţie a aplicației va fi deschisă o aplicație Excel ce nu va mai putea 
fi închisă decât prin intermediul utilitarului Task Manager din Windows sau prin 
repornirea sistemului de operare. 


Pentru a închide toate registrele de lucru deschise de o aplicaţie Excel se 
apelează metoda Close a colecției Workbooks. Pentru exemplele de mai sus, pentru a 
închide registrele create sau deschise se va adăuga appExl. Workbooks. Close. 


Principalele proprietăţi ale clasei WORKBOOK 


Proprietate Descriere 
ActiveSheet Foaia de lucru activă din registru de lucru 
specificat. 
Path Calea către registrul de lucru 
Saved Va fi „TRUE” dacă registrul de lucru a fost 
salvat. Pentru a marca ca salvat un registru de 
lucru fără a-l scrie efectiv pe disc trebuie setată 
această proprietate pe ” TRUE”. 
Worksheets O colecţie ce reprezintă toate foile de lucru din 


registrul de lucru. 


Principalele metode ale clasei WORKBOOK 


Metoda Descriere 
Activate Activează registrul de lucru. În cazul în care activ 
era un alt registru, respectivul devine automat 
inactiv. 
Close Închide registrul de lucru. 
New Window Creează o nouă fereastră pentru registrul de lucru. 
Save Salvează pe disc registrul de lucru. Pentru a marca 
ca salvat un registru de lucru fără a-l scrie pe disc 
trebuie setată pe valoarea ”TRUE” proprietatea 
Saved. Prima dată când se salvează un registru de 
lucru se foloseşte metoda SaveAs. 
Save As Salvează pe disc registrul de lucru, în fişierul 


specificat ca parametru. 


În exemplul următor, vom instanţia o aplicaţie Excel, vom crea un nou registru 
de lucru pe care apoi îl vom salva şi îl vom deschide în aceeaşi aplicaţie. În final vom 
închide registrul de lucru şi aplicația. 


Dim app 


Dim wbkBook As 


Ea IE AS 


excel .Application 


Excel .Workbook 


Set appExl = New Excel.Application 


appExl .Workbooks.Add 


Set wbkBook = appExl.Workbooks (1) 
wbkBook.SaveAs "CC: Registru.xls" 
appExl .Workbooks (1) .Close 


appEx1 .Workbooks.Open "C:NRegistru.xIs" 


Set wbkBook = appExl.Workbooks (1) 


Dim appExl As Excel.Application 
Dim wbkBook As Excel.Workbook 


Set appExl = New Excel.Application 
Set wbkBook = appExl.Workbooks.Add 
wbkBook.SaveAs "C:\Registru.xls" 


wbkBook.Close 


Set wbkBook = appEx1.Workbooks.Open ("C:NRegistru.x1s") 


wbkBook.Close 
appExl.Quit 


3.Clasa WorkSheet 


Clasa WorkSheet face parte din colecţia WorkSheets şi reprezintă foaia de 
lucru. O colecţie Worksheets conţine toate foile de lucru dintr-un registru de lucru 


(workbook). 


Principalele metode ale colecției WORKSHEETS 


Metoda Descriere 
Add Creează o foaie de lucru nouă. Aceasta va deveni 
foaia de lucru activă. Un registru de lucru conține 
implicit trei foi de lucru. 
Copy Copie o foaie de lucru într-o altă poziție în 
registrul de lucru. 
Delete Şterge o foaie de lucru. 
Move Mută o foaie de lucru într-o altă poziție în 


registrul de lucru. 


Principalele proprietăţi ale clasei WORKSHEET 


Proprietate Descriere 
Cells Returnează un obiect de tip RANGE ce reprezintă 
toate celulele din foaia de lucru. 
Columns Returnează un obiect de tip RANGE ce reprezintă 
toate coloanele din foaia de lucru. 
Index Numărul de ordine al foii de lucru în cadrul 
registrului de lucru. 
Name Denumirea foii de lucru. 
Next Returnează un obiect de tip WORKSHEET ce 
reprezintă foaia de lucru următoare. 
Previous Returnează un obiect de tip WORKSHEET ce 
reprezintă foaia de lucru anterioară. 
Range Returnează un obiect de tip RANGE ce reprezintă 


o celulă sau un grup de celule din foaia de lucru. 


Rows 


Returnează un obiect de tip RANGE ce reprezintă 
toate liniile din foaia de lucru. 


Principalele metode ale clasei WORKSHEET 


Metoda Descriere 
Activate Foaia de lucru devine foaia activă din registrul de 
lucru. Foaia de lucru activă anterior devine 
automat inactivă. 
Calculate Efectuează calculele conform formulelor din toate 
celulele din foaia de lucru. 
Copy Copie foaia de lucru într-o altă poziție din 
registrul de lucru. 
Delete Şterge foaia de lucru din cadrul registrului. 
Move Mută foaia de lucru într-o altă poziţie în registrul 
de lucru. 
SaveAs Salvează modificările efectuate în foaia de lucru. 


Dim appExl As Excel.Application 
Dim wbkBook As Excel.Workbook 
Dim wshSheet As Excel.Worksheet 


'initializez o aplicatie Excel 


Set appExl = New Excel.Application 
"creez un registru de lucru 


Set wbkBook = 


appExl .Workbooks .Add 


"in registrul de lucru wbkBook 
"creez o noua foaie de lucru 


Set wshSheet = 


'Denumesc foaia de lucru 
'De 


wshSheet.Name = "Foaie de proba" 


Jimercocue un text in castita Al Chim 
'foaia de lucru "Foaie de proba" 


wbkBook.Worksheets.Add 


pemarCat Ca NOWE Foals Sste adatgate la “ingceputul reci strmi” 


wshSheet.Range ("A1") .Value = "Am reusit!" 


'Salvez modificarile din registrul de lucru 


Sin Ea SAL Siciul ll YReGistr ru xla” 
wbkBook.SaveAs "C:\Registru.xls" 
'Inchid registrul de lucru 


wbkBook.Close 


'Inchid aplicatia Excel 


appExl.Quit 


Pentru a vedea rezultatul exemplului de mai sus se deschide fişierul 
"CARegistru.xls” cu aplicaţia Microsoft Excel. Dacă nu este specificată calea atunci 
când se salvează registrul de lucru, fişierul va fi salvat în directorul în care se află 
aplicaţia (proiectul) realizată în Visual Basic. O altă variantă de a vizualiza aplicaţia 
registrul de lucru nou creat o constituie invocarea comenzii Shell” din Visual Basic 
care va primi ca parametri calea către executabilul Excel şi numele fişierului care se 
va deschide. 


4.Clasa Range 


Un obiect de tip Range reprezintă o celulă, o linie, o coloană sau un grup de 
celule. 


Principalele proprietăţi ale clasei RANGE 


Proprietate Descriere 
Address Adresa grupului de celule. De exemplu adresa 
căsuţei din stânga sus va fi ”$A$1”. 
Borders Toate cele patru borduri pentru un grup de celule. 
Cells Celulele ce alcătuiesc grupul de celule. 
Column Numărul primei coloane din grupul de celule. 
Pentru coloana „A” va fi 1, pentru „B” va fi 2 etc. 
Columns Returnează un obiect de tip RANGE ce reprezintă 
toate coloanele din grupul de celule specificat. 
Column Width Lățimea coloanelor din grupul de celule 
specificat. 
Font Font-ul pentru grupul de celule. 
Formula Formula de calcul pentru grupul de celule. 
Height Înălțimea grupului de celule în puncte 
( punct = 1/72 inch). 
HorizontalA lienmen t Alinierea orizontală a textului. Poate lua ca 
valoare una din următoarele constante xIHAlign 
(IHAlignCenter, xIHAlignDistributed, 
xIHAlignJustify, xIHAlignLeft, xIHAlignRight 
). 
MergeArea Returnează un obiect de tip RANGE ce va conține 
întregul grup de celule lipite sau grupate (Merged 
Cells ) din care face parte celula specificată. Dacă 
celula nu este lipită atunci această proprietate va 
returna doar celula specificată. 
MergeCells Dacă regiunea specificată conține celule lipite 
atunci această proprietate returnează TRUE. 
Next Celula următoare din cadrul grupului. 
NumberFormat Formatul de număr. 
Orientation Orientarea textului in celule. Poate lua valori între 
—90 şi 90 
Previous Celula anterioară din cadrul grupului. 
Row Numărul primei linii din regiunea specificată. 
RowHeight Înălţimea liniilor din regiunea specificată, în 
puncte (1 punct = 1/72 inch). 
Rows Returnează un obiect de tip RANGE ce reprezintă 
toate liniile din grupul de celule specificat. 
Style Stilul ce se aplică grupului de celule (ex. 
„Normal”, ”Percent” etc). 


Text 


Returnează textul aflat în celula specificată. 


Value 


Valoarea din celula specificată. Dacă obiectul 
RANGE conţine mai multe celule atunci 
proprietatea Value va returna un vector (Array) de 
valori. 


VerticalA lienment 


Alinierea pe verticală a textului. Poate lua ca 
valoare una din următoarele constante xIV Align 
(IVAlignBottom, xIVAlignCenter, 
xIVAlignDistributed, xIVAlignJustify, 
xIVAlignTop). 


Width 


Lăţimea celulei (grupului de celule) în puncte 
( punct = 1/72 inch). 


Principalele metode ale clasei RANGE 


Metoda Descriere 

Activate Activează o celulă. Aceasta trebuie să facă parte 
din regiunea selectată (a se vedea şi metoda 
Select). 

AutoFit Modifică lățimea coloanelor din regiunea 
specificată astfel încât să vie vizibil textul din toate 
celulele. Sintaxa pentru această metodă este: 
Range(grupcelule).Columns.AutoFit 

BorderAround Adaugă o bordură grupului de celule specificat şi 
setează forma bordurii (”LineStyle”), grosimea 
(“Width”) şi culoarea acesteia (”Colorlndex” sau 
”Color”). 
Calculate Efectuează calculele conform formulelor din 
regiunea specificată. 
Clear Anulează toate proprietăţile celulelor. 
ClearFormats Anulează formatările pentru celulele specificate. 
Copy Copie un grup de celule în regiunea specificată. 
Cur Taie un grup de celule şi eventual le mută în 
regiunea specificată. 
Delete Şterge un grup de celule. 
Insert Adaugă noi celule în regiunea specificată. 
Merge Lipeşte celulele specificate. 
Select Selectează regiunea specificată. 
Sort Ordonează valorile din grupul de celule specificat. 
UnMerge "Dezlipeşte” regiunea selectată în celule 


individuale. 


În exemplul următor avem cheltuielile şi încasările pe trimestre şi pe baza 
acestora se vor calcula profitul pe trimestre şi totalul cheltuielilor, încasărilor şi 
profitului la sfârşitul anului, după formula Profit=Incasări-Cheltuieli. Rezultatul 


final va arăta astfel: 


Situatia financiara pe trimestre 


Trimestru Cheltuieli 


Incasari Profit 


1 190,021,321 LEI 
2 250,121,332 LEI 
3 213,076,089 LEI 
4 345,266,121 LEI 


312,321,432 LEI 122,300,111 LEI 
645,965,342 LEI 395,844,010 LEI 
823,332,554 LEI 610,256,465 LEI 
325,266,664 LEI -19,999,457 LEI 


Total | 998,484,863 LEI 2,106,885,992 LEI 1,108,401,129 LEI 


= 
Fi 
B 


Dim appExl As 
Dim wbkBook As 
Dim wshSheet As 


'initializez o 


Set appExl = Ne 
Terez Tha AEG ȘI 
Set wbkBook = a 
Set wshSheet = 


'Denumesc prima 
wshSheet.Name = 


[isa ale Sp jol ELCAN 


Excel .Workbook 
Excel .Worksheet 


aplicatie Excel 
w Excel.Application 


tru de lucru 
PpEx1l .Workbooks .Add 


wbkBook. Sheets (1) 


foaie de lucru 
"Situatia financiara" 


(titlul tabelului) 


Isi pese 
wshShee 


primel 
t.Range [ 


wshSheet.Range ( 
e EL S 
font de 
„Range ( 


„Range ( 


Dilie tuak 
Tgi -Cu 
wshShee 
wshShee 


e ale, LG 
„Range ( 


'Aliniez 
wshSheet 


'Casutele ce co 
Va EGa) uzate Gui 


wshSheet .Range ("A1:D1") .BorderAround xlContinuous, 


'Antetele de co 
"scrise cu cara 
"fiecare celula 


a celule ce pe priima iiie 
Waal pIDILU)) o MSaao ps 


"Al") .Value = "Situatia financiara pe trimestre" 


cris cu caractere ingrosate 
12 
va 
AT 


True 
12 


ED) 2 Ioane BOLE 
SIBI) a Iloaie Size 


la 
TAT 


Centru 
:D1l") .HorizontalAlignment 


xlHAlignCenter 


weim tielu yor ri 
bordura continua, subtire 


sala alia) 


loana vor fi aliniate la centru, 
ctere ingrosate si inclinate (italice), 
cu bordura continua, subtire 


wshSheet .Range ("A2 :D2") .HorizontalAlignment = xlHAlignCenter 
wshSheet .Range ("A2:D2") .Font.Bold = True 

wshSheet .Range ("A2:D2") .Font.Italic = True 

wshSheet .Range ("A2") .BorderAround xlContinuocus, xlThin 

wshSheet .Range ("B2") .BorderAround xlContinuous, xlThin 

wshSheet .Range ("C2") .BorderAround xlContinuocus, xlThin 

wshSheet .Range ("D2") .BorderAround xlContinuocus, xlThin 
wshSheet .Range ("A2") .Value = "Trimestru" 

wshSheet .Range ("B2") .Valu "Cheltuieli" 

wshSheet .Range ("C2") .Value = "Incasari" 

WI SlaiSlareeie, RENGE (NDAN) Value = WEOE IEA 

wshSheet.Range ("A3") .Value = 1 

wshSheet.Range ("A4") .Value = 2 

wshSheet.Range ("A5") .Value = 3 

wshSheet.Range ("A6").Value = 4 

wshSheet .Range ("A3:A6") .BorderAround xlContinuous, xlThin 

WSIS he e ti Range (WATANA Mme Doyle aril 

wshSheet .Range ("A3:A4A7") .HorizontalAlignment = xlHAlignCenter 
wshSheet .Range ("A7:D7") .Font.Bold = True 

wshSheet .Range ("A7") .BorderAround xlContinuocus, xlThin 

wshSheet .Range ("B7:D7") .BorderAround xlContinuous, xlThin 
'Pormatez celulele ce vor contine valorile 

wshSheet .Range ("B3:D7") .Numberformat = "4,440 "Lg 
macrocte Formia pentru Ccatcviul proricali ps prina Minie 


wshSheet. 


Range ("D3") 


„Formula = "=C3-B3" 


"Formula din D3 va fi copiată în toate celulele până la DE 


wshSheet. 


"Formule 
wshShee 


wshShee 


Sacrae 
wshShee 
wshShee 
wshShee 
wshShee 
wshShee 
wshShee 
wshShee 
wshShee 


[er 


i TLD, a IP, ca, pl xi PA se NINA re MAI aia pt mau 


'Se efec 


wshSheet. 


wshSheet. 


Excel va actualiza automat formulele în funcție de noile coordonate 
Range ("D3:D6") 


.FillDown 


le pentru total cheltuieli,incasari şi profit 
„Range ("B7") .Formula = "=SUM(B3:B86)" 
Range ("C7") .Formula = "=SUM(C3:C6)" 
„Range ("D7") .Formula = "=C7-B7" 
€ Cartele ce calul 
„Range ("B3") .Value = 190021321 
Range ("C3") .Value = 312321432 
Range ("B4") .Value = 250121332 
Range ("C4") .Value = 645965342 
Range ("B5") .Value = 213076089 
Range ("C5") .Value = 823332554 
Range ("B6") .Value = 345266121 
Range ("C6") .Value = 325266664 


tuează toate 
Calculate 


cal 


culele din foaie conform formulelor 


'Potrivire automată a läțimii coloanelor 
„Range ("A1:D7") 


wshSheet 


„Columns.AutoFfit 


'Bordură îngroşată în jurul tabelului 
„BorderAround xlContinuous, xlMedium 


wshSheet .Range ("A1:D7") 


!Salipoz meci iei zii le Gha registrul cde Lwem 
ia FigiecruL AREGLET U o sa ÎL 
wbkBook.SaveAs "C:\Registru.xls" 


'Închid registrul de lucru 
wbkBook.Close 


'Închid 


aplicatia Excel 
appEx1l.Quit 


Pentru a deschide aplicaţia Microsoft Excel prin cod, trebuie introdusă la final 
comanda: 


Siaeilil 


Welle apre BAC 


EL nume fisier de deschis" 


Pentru exemplul dat, pe calculatorul autorilor, funcția Shell arată astfel: 
Shell "C:\Program Files\Microsoft Office\Office\Excel.exe C:\Registru.xls". 


Exemplul de mai sus a fost creat doar pentru familiarizarea cu tehnologia 
Excel. In practică datele nu vor fi introduse explicit din cod ci, în cele mai multe 
cazuri vor fi preluate dintr-o bază de date. 


5.Excel, o alternativa pentru Data Report 


Să presupunem că lucrăm pe o bază de date în Microsoft Access ce conține 
tabela clienți, cu următoarea structură: 


10 


Denumire 
Cod_fiscal 
Localitate 


Figura nr. 2 — Structura tabelei CLIENTI 


În exemplul următor, există un control de tip ”Data”, care este conectat la 
tabela Clienţi. Pe baza acestuia se obţine un raport în Excel, în maniera prezentată în 
secvenţa ce urmează. 


Dim appExl As Excel.Application 
Dim wbkBook As Excel.Workbook 
Dim wshSheet As Excel .Worksheet 
Dim intRow As Integer 

Dim intCol As Integer 

Dim i As Integer 


Set appExl = New Excel.Application 
Set wbkBook = appExl.Workbooks.Add 
Set wshSheet = wbkBook.Sheets(1) 
With wshSheet 


. Name Teen en 
TRange (PAI MENE Menge 
T Range ("Al") .Value = "Lista clienti" 


TRange TAI FIERECON OILE = EUe 


( 
( 
-Range ("A1:F1") .Font.Size = 12 
( 
„Range ("A1:F1") .HorizontalAlignment = xlHAlignCenter 


) alsoiaie BOJE TITUS 
„Range ("A2:F2") .Font.Italic = True 
) .HorizontalAlignment = xlHAlignCenter 


Range ("A2") .Value = "Cod" 

Range ("B2") .Value = "Denumire" 

Range ("C2") .Value = "Cod fiscal" 

Range ("D2") .Value = "Localitate" 

Range ("E2") .Value = "Adresa" 

o RENGEN TZEN Value = ele on 

„Range ("A2:F2") .BorderAround xlContinuous, xlMedium 
( 
( 
( 


Incepand ct limia 3 (imtoo = 3) vom serie Cetele chim tabel, 
'"Cells(3,1) reprezinta celula de pe linia 3, coloana 1. 

"Vom parcurge toate liniile din tabela clienti si le 

'vom adauga pe rand in raport. 


If Not (datClienti.Recordset.BOF And datClienti.Recordset.EO0F) Then 
datClienti .Recordset .MoveFfirst 
mel ÎL ae 
intRow = 2 
Do Until datClienti.Recordset.EOFP 
intRow = intRow + 1 


„Cells(intRow, 1) .Value = datClienti.Recordset!codcl 
„Cells(intRow, 2) .Value = datClienti.Recordset!denumir 
oCells (IntROw, 3) -Value = datClienti, Recordset lcoel Figecal 
.Cells(intRow, 4).Value = datClienti.Recordset!localitate 
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„Cells(intRow, 5) .Value datClienti .Recordset!adresa 
„Cells(intRow, 6) .Value datClienti.Recordset!telefon 
datClienti .Recordset .MoveNext 

Loop 


'Adaugam bordurile pentru randuri si coloane 
'"intRow este ultimul rand pe care s-a scris 
Vale paie coloenelor esta 6 


Tor aa CSL = 1 o 6 
Bor a = 1 wo NER 
„Cells(i, intCol) .BorderAround xlContinuous, xlThin 


Next i 
Next intCol 


"Bordura pentru tot tabelul (ingrosata) 
„Range (.Cells(1, 1), .Cells(intRow, 6)).BorderAround xlContinuous, xlMedium 
"Potrivire automata a latimii coloanelor 


Renne (a (Osea Iy Celle (iini, 16) )) a Colimis -AWTOR ie 
End With 


wbkBook.SaveAs "C:NClienti.xls" 

wbkBook.Close 

appExl.Quit 

Shell VC; \Progream FilesiWMicrosoft OfficelOfficelExcel C:NClLienti.x1ls" 


Acest material nu şi-a propus decât o familiarizare cu lucrul în Excel prin 
intermediul Visual Basic. Posibilităţile de realizare a rapoartelor în Excel sunt mult 
mai vaste, realizarea de grafice sau tabele pivot pe baza datelor stocate într-o bază de 
date fiind un exemplu în acest sens. Celor interesați le recomandăm studierea 
documentației ce însoţeşte pachetul Visual Studio (atenţie, la instalarea MSDN-ului 
trebuie bifată şi opţiunea „Office xxxx Documentation”). 
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